home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib17.dsk / DISPLAY SCORES.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  43 lines
  1. 1  REM  **********************
  2. 2  REM  *   DISPLAY SCORES   *
  3. 3  REM  * BY  HARRY K. SUGAR *
  4. 4  REM  * COPYRIGHT (C) 1984 *
  5. 5  REM  * BY MICROSPARC, INC *
  6. 6  REM  * LINCOLN, MA. 01773 *
  7. 7  REM  **********************
  8. 10  DIM MS(40)
  9. 20 D$ =  CHR$(4)
  10. 30  PRINT D$;"OPEN BMATHSTAT"
  11. 40  PRINT D$;"READ BMATHSTAT"
  12. 50  INPUT NS
  13. 60  IF NS = 0  THEN 1920
  14. 70  FOR Q = 1 TO NS
  15. 80  INPUT MS(Q)
  16. 90  NEXT Q
  17. 100  PRINT D$;"CLOSE BMATHSTAT"
  18. 110  HOME : GR 
  19. 120  FOR P = 1 TO 3
  20. 130  FOR Q = 1 TO NS
  21. 140 SC$ =  STR$(MS(Q))
  22. 150 CH$ =  MID$ (SC$,P,1)
  23. 160  IF CH$ = ""  THEN CH$ = " "
  24. 170  PRINT CH$;
  25. 180  NEXT Q
  26. 190  IF Q <41  AND P <3  THEN  PRINT 
  27. 200  NEXT P
  28. 210  IF Q <41  THEN  PRINT 
  29. 220  FOR I = 0 TO NS -1
  30. 230 MS =  INT(MS(I +1) *.39 +.5)
  31. 240  IF I < = 14  THEN  COLOR= I +1
  32. 250  IF I >14  AND I < = 29  THEN  COLOR= I -14
  33. 260  IF I >29  THEN  COLOR= I -29
  34. 270  IF MS = 0  THEN 310
  35. 280  FOR J = 39 TO 39 -MS  STEP  -1
  36. 290  PLOT I,J
  37. 300  NEXT J
  38. 310  NEXT I
  39. 320  PRINT "*** HIT THE RETURN KEY ***";
  40. 330 X =  PEEK( -16368)
  41. 340  GET SS$
  42. 350  TEXT : HOME 
  43. 360  END